MacTech 1 to 12/MacTech-vol-1-12.toast/Source/MacTech® Magazine/Volume 04 - 1988/04.09 Sep 88/4d stuff/Source Files/Doubler.p

Text File | 1994-11-06 | 190 b | 12 lines | [TEXT/MPS ]

Program Ext_Doubler;
Var        DumInt:Integer;

procedure Doubler(var TheInt:Integer);
begin
    TheInt:=TheInt*2;
end;    {Doubler}

Begin
    Doubler(DumInt); {Used for compile only}
End.        {Main Block}